#lang racket

; Short list

(define short?
  (lambda (l1 l2)
    (if (and (null? l1)(null? l2))
        "First"
        (cond
          [(and (null? l1)(not (null? l2))) "Fisrt"]
          [(and (not (null? l1))(null? l2)) "Second"]
          [else (short? (cdr l1) (cdr l2))]))))

(define t1 (list 'a 'b 'c 'd))

(define t2 (list 'a 'b 'c 'd))

(define t3 (list 'a 'b 'c 'd 'e 'f 'g))

(short? t1 t2)

(short? t2 t3)

(short? t3 t2)